home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d8
/
scripts.arc
/
CONNECT.SLT
< prev
next >
Wrap
Text File
|
1988-11-01
|
2KB
|
55 lines
/////////////////////////////////////////////////////////////////////////
// CONNECT.SLT - by Terry Robertson (October 1988) //
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ //
// //
// This script prints details of current connection to screen. Upon //
// your modem signalling that you are connected to the host, the //
// following information can be flashed to the top of the Terminal //
// screen: //
// //
// Name and phone number of host system //
// Baud rate connected at //
// Today's date and the current time //
// //
// This script is most useful when it is "called" from a standard //
// log-on script. //
// //
/////////////////////////////////////////////////////////////////////////
str NOL[] = "Not online";
str connected[80] = "Connected to ";
str now[80] = "It is now ";
str tm[16];
str dt[8];
str baud[16];
Main()
{
if(carrier())
{
clear_scr();
strcat(connected, _entry_name);
strcat(connected, " on ");
strcat(connected, _entry_num);
date(curtime(), dt);
time(curtime(), tm);
strcat(now, tm);
strcat(now, " on ");
strcat(now, dt);
box(6, 0, 73, 3, 2, 0, 30);
pstraxy(connected, 10, 1, 31);
pstra(" at ", 31);
itos(get_baud(), baud);
pstra(baud, 31);
pstraxy(now, 10, 2, 31);
gotoxy(0, 5);
return;
}
else if (carrier(-1))
pstraxy(NOL, 10, 1, 31);
}